# Protokoll zum 19.06.2013
# Melanie Westenberg
# Abkürzungen Vereinsnamen
 
## Was habe ich mir für diese Woche vorgenommen?
# a) Code schreiben, mit dem die Vereinsnamen automatisch abgekürzt werden
 
## Was habe ich bei der Umsetzung versucht?
# Die Abkürzungen sollen aus drei Buchstaben bestehen. Wenn die ersten 3 
# Buchstaben der Vereinsnamen eine einzigartige Abkürzung ergeben, ist dies 
# ok. Ansonsten soll der dritte Buchstabe durch den nächst unterschiedlichen ersetzt werden.
   

shc <- substr (clubnames, 1,3)
  if (length(shc > 3){
    stop('ERROR:Abkürzung zu lang')
    )
  }
# Error-Checking soll sicherstellen, dass wirklich nur Abkürzungen 
# mit drei Buchstaben erstellt werden.

for (i in 1:n)
  clubnames[,j] <- as.character(clubnames)

ho <- gsub("[[:punct:]]*", "[[:digit]]*","[[:blank:]]*", "", x=clubnames)

# Vereinsnamen sind in Kreuztabelle mit Leerzeichen, Digits und Co. versehen,
# diese sollen in der erstellten Abkürzung übersprungen/replaced werden. Dies 
# ist durch den gsub-Befehl erfolgt. Evtl. dies als Hilfsobjekt kreieren.

# Theoretisch erfolgt die Ersetzung des 3. Buchstaben der Abkürzung mit Hilfe einer
# Schleife, die durch die Vereinsnamen läuft bis der erste unterschiedliche
# Buchstabe gefunden wurde.

if (!(shc == unique) {
  gsub(shc <- as.character(shc[3]), replacement="next.diff.charac"
       next.diff.charac <- clubnames
}
    # Als Ziel soll der 3. Buchstabe des vorher erstellten shc durch den ersten 
    # unterschiedlichen Buchstaben ersetzt werden.
    
## Was hat funktioniert?
# Der Code hat so leider nicht funktioniert
    
## Was nehme ich mir für nächste Woche vor?
# Weitere Modifikationen der bereits erstellten Codes

## Was habe ich diese Woche besonders kennengelernt?
# gsub-Befehl
       


